home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl402.bin / Perl_src / Distribution / Distribution
Encoding:
Text File  |  1993-01-23  |  470 b   |  26 lines  |  [TEXT/MPS ]
  1. Set Exit 0
  2. Perl -Sx "{0}" {"Parameters"}>ToDistr
  3. ToDistr
  4. Delete -y ToDistr
  5. Exit
  6.  
  7. #!/usr/bin/perl
  8.  
  9. $deffldr = pop @ARGV;
  10. chop $deffldr if ($deffldr =~ /:$/);
  11.  
  12. foreach $i (@ARGV) {
  13.     if ($i =~ /^(.+:)/) {
  14.         $folder{"$deffldr$1"} .= " \'$i\'";
  15.     } else {
  16.         $folder{"$deffldr:"} .= " \'$i\'";
  17.     }
  18. }
  19.  
  20. foreach $i (sort { ($a =~ y/:/:/) <=> ($b =~ y/:/:/) } keys %folder) {
  21.     print "Backup -a -c -d$folder{$i} -to \'$i\'>DoDistr\n";
  22.     print "DoDistr\n"
  23. }
  24.  
  25. print "Delete DoDistr\n";
  26.